BMUG PD-ROM BV3

home *** CD-ROM | disk | FTP | other *** search

/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / Programming / Programming Languages / PC Basic / PCBASIC Stand alone version / PCBASIC Demo / PCBASICDemoR.lst < prev next >

Wrap

File List | 1992-02-22 | 90.1 KB | 2,824 lines | [TEXT/EDIT]

McASM V6.0 Filename: &8073PCBASICDemoR Page no. 1 1: ; 2: ; Resource File For PCDemo 3: ; McAssembly ( or direct compile) format 4: ; 5: ; The PCBASIC Manual, $50, describes the 6: ; McAssembly Resource format 7: ; 8: ; order from: 9: ; 10: ; Pterodactyl Software 11: ; c/o Harland Harrison 12: ; 200 Davey Glen Rd #416 13: ; Belmont CA 94002 14: ; (415) 591-5270 15: ; 16: ; some equates we'll need: 17: ; 18:00000012 chk equ $12 ;ascii for check mark character 19:0000FFFF visible equ $FFFF ;TRUE boolean 20:00000000 invisible equ 0 ;FALSE boolean 21:00000000 nogoaway equ 0 ;FALSE boolean 22:0000FFFF goaway equ $FFFF ;TRUE boolean 23:00000004 button equ 4 ;DITL BUTTON 24:00000005 chkbox equ 5 ;DITL CHECK BOX 25:00000006 radio equ 6 ;DITL RADIO BUTTON 26:00000088 stattext equ 8+128 ;DITL STATIC TEXT (DISABLED) 27:00000090 editxtds equ 16+128 ;EDIT TEXT DISABLED 28:00000020 iconitem equ 32 ICON in dialog box 29: ; 30: ; Signature of program 31: ; 32:00000000 [[ DEMO,0 33:00000000 2A504342 TEXT #"PCBASIC Demo Version 2.0 January 3, 1992" 34:0000002B ]] 35: 36: ; Apple menu 37: 38:0000002B $$ MENU,1,4 Menu ID 1 39:0000002B 00010000 0,0,0 Placeholders 0000002F 00000000 00000033 0000 40:00000035 FFFFFFFB $FFFFFFFB enable mask - item 2 disabled 41:00000039 0114 "/$14" menu title = apple char 42:0000003B 2 two items in this menu 43: ; item 1: 44:0000003B 1541626F About PCBASIC Demo... the menu item 0000003F 75742050 00000043 43424153 00000047 49432044 0000004B 656D6F2E 0000004F 2E2E 45:00000051 0000 0,0 no icon, no keybd equivalent 46:00000053 0000 0,0 no marking char, text style = plain McASM V6.0 Filename: &8073PCBASICDemoR Page no. 2 47: ; item 2: 48:00000055 142D2D2D -------------------- the menu item 00000059 2D2D2D2D 0000005D 2D2D2D2D 00000061 2D2D2D2D 00000065 2D2D2D2D 00000069 2D 49:0000006A 00000000 0,0,0,0 no icon, no keybd, no mark, plain text 0000006E 00 50: 51: ; 52: ; Files menu 53: ; 54: 55:0000006F $$ MENU,302,4 Menu ID 302 56:0000006F 012E0000 0,0,0 Placeholders 00000073 00000000 00000077 0000 57:00000079 FFFFFFFF $FFFFFFFF enable mask - none disabled 58:0000007D 054F7264 Order menu title 00000081 6572 59:00000083 3 three items in this menu 60: ; item 1: 61:00000083 0D53656E "Send A Manual" the menu item 00000087 64204120 0000008B 4D616E75 0000008F 616C 62:00000091 0100 1,0 icon 257, no keybd equivalent 63:00000093 0000 0,0 no marking char, text style = plain 64: ; item 2: 65:00000095 0E53656E "Send Shareware" the menu item 00000099 64205368 0000009D 61726577 000000A1 617265 66:000000A4 0000 0,0 no icon, no keybd equivalent 67:000000A6 0000 0,0 no marking char, text style = plain 68: ; item 3: 69:000000A8 04517569 "Quit" 000000AC 74 70:000000AD 0000 0,0 no icon, no keybd equivalent 71:000000AF 000000 0,0 no marking char, text style = plain 72: ; item 4: 73: 74: 75: ; Edit menu 76: 77:000000B2 $$ MENU,301,4 Menu ID 301 78:000000B2 012D0000 0,0,0 Placeholders 000000B6 00000000 000000BA 0000 79:000000BC FFFFFFFB $FFFFFFFB enable mask - 2nd disabled 80:000000C0 04456469 Edit menu title 000000C4 74 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 3 81:000000C5 6 six items in this menu 82: ; item 1: 83:000000C5 04556E64 "Undo" the menu item 000000C9 6F 84:000000CA 00000000 0,0,0,0 no icon, no keybd equivalent no marking char, text style = plain 85: ; item 2: 86:000000CE 0A2D2D2D "----------" the menu item 000000D2 2D2D2D2D 000000D6 2D2D2D 87:000000D9 00000000 0,0,0,0 no icon, no keybd, no mark, plain text 88: ; item 3: 89:000000DD 03437574 "Cut" 90:000000E1 00580000 0,'X',0,0 no icon, cmd X, no mark, plain text 91: ; item 4: 92:000000E5 04436F70 "Copy" the menu item 000000E9 79 93:000000EA 00430000 0,'C',0,0 no icon, cmd C, no mark, plain text 94: ; item 5: 95:000000EE 05506173 "Paste" the menu item 000000F2 7465 96:000000F4 00560000 0,'V',0,0 no icon, cmd V, no mark, plain text 97: ; item 6: 98:000000F8 05436C65 "Clear" the menu item 000000FC 6172 99:000000FE 00000000 0,0,0,0 no icon, no keybd, no mark, plain text 00000102 00 100: 101: 102: ; Help menu 103: 104:00000103 $$ MENU,303,4 Menu ID 303 105:00000103 012F0000 0,0,0 Placeholders 00000107 00000000 0000010B 0000 106:0000010D FFFFFFFF $FFFFFFFF enable mask - none disabled 107:00000111 0448656C "Help" menu title 00000115 70 108:00000116 4 four items in this menu 109: ; item 1: 110:00000116 0E557369 "Using the Demo" the menu item 0000011A 6E672074 0000011E 68652044 00000122 656D6F 111:00000125 0048 0,'H' no icon, keybd equivalent is H 112:00000127 0000 0,0 no marking char, text style = plain 113: ; item 2: 114:00000129 1148656C "Help with program" the menu item 0000012D 70207769 00000131 74682070 00000135 726F6772 00000139 616D 115:0000013B 0000 0,0 no icon, no keybd equivalent 116:0000013D 0000 0,0 no marking char, text style = plain McASM V6.0 Filename: &8073PCBASICDemoR Page no. 4 117: ; item 3: 118:0000013F 0C486F77 "How to order" 00000143 20746F20 00000147 6F726465 0000014B 72 119:0000014C 0000 0,0 no icon, no keybd equivalent 120:0000014E 0000 0,0 no marking char, text style = plain 121: ; item 4: 122:00000150 1448656C "Help with help boxes" 00000154 70207769 00000158 74682068 0000015C 656C7020 00000160 626F7865 00000164 73 123:00000165 0000 0,0 no icon, no keybd equivalent 124:00000167 000000 0,0 no marking char, text style = plain 125: 126: ; Features function menu 127: 128:0000016A $$ MENU,304,4 Menu ID 304 129:0000016A 01300000 0,0,0 Placeholders 0000016E 00000000 00000172 0000 130:00000174 FFFFFFFF $FFFFFFFF enable mask - none disabled 131:00000178 08466561 "Features" menu title 0000017C 74757265 00000180 73 132:00000181 7 seven items in this menu 133: ; item 1: 134:00000181 0D496E74 "International" the menu item 00000185 65726E61 00000189 74696F6E 0000018D 616C 135:0000018F 0000 0,0 no icon, no keybd equivalent 136:00000191 0000 0,0 no marking char, text style = plain 137: ; item 2: 138:00000193 0E49424D "IBM Compatible" the menu item 00000197 20436F6D 0000019B 70617469 0000019F 626C65 139:000001A2 0000 0,0 no icon, no keybd equivalent 140:000001A4 0000 0,0 no marking char, text style = plain 141: ; item 3: 142:000001A6 174D656E "Menus and Function Keys" 000001AA 75732061 000001AE 6E642046 000001B2 756E6374 000001B6 696F6E20 000001BA 4B657973 143:000001BE 0000 0,0 no icon, no keybd equivalent 144:000001C0 0000 0,0 no marking char, text style = plain 145: ; item 4: 146:000001C2 16446961 "Dialog and Alert Boxes" McASM V6.0 Filename: &8073PCBASICDemoR Page no. 5 000001C6 6C6F6720 000001CA 616E6420 000001CE 416C6572 000001D2 7420426F 000001D6 786573 147:000001D9 0000 0,0 no icon, no keybd equivalent 148:000001DB 0000 0,0 no marking char, text style = plain 149: ; item 5: 150:000001DD 114D6F75 "Mouse and Editing" 000001E1 73652061 000001E5 6E642045 000001E9 64697469 000001ED 6E67 151:000001EF 0000 0,0 no icon, no keybd equivalent 152:000001F1 0000 0,0 no marking char, text style = plain 153: ; item 6: 154:000001F3 174C6172 "Large Programs and Data" 000001F7 67652050 000001FB 726F6772 000001FF 616D7320 00000203 616E6420 00000207 44617461 155:0000020B 0000 0,0 no icon, no keybd equivalent 156:0000020D 0000 0,0 no marking char, text style = plain 157: ; item 7: 158:0000020F 13496E64 "Industrial Strength" 00000213 75737472 00000217 69616C20 0000021B 53747265 0000021F 6E677468 159:00000223 0000 0,0 no icon, no keybd equivalent 160:00000225 000000 0,0 no marking char, text style = plain 161: 162: 163: 164: ; Help Dialog List 165: 166:00000228 $$ DITL,303,32 Dialog item list, ID = 303, ATTR=(32) 167:00000228 0007 8 8 items in list 168: 169: ; item 1: 170:0000022A 00000000 0 handle holder 171:0000022E 000A0019 10,25,30,455 display rectangle 00000232 001E01C7 172:00000236 88 StatText item type 173:00000237 1F537562 "Subject for Help Menu item text" ;the item 0000023B 6A656374 0000023F 20666F72 00000243 2048656C 00000247 70204D65 0000024B 6E752069 0000024F 74656D20 00000253 74657874 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 6 00000257 00 174: 175: ; item 2: 176:00000258 00000000 0 handle holder 177:0000025C 00280019 40,25,60,455 display rectangle 00000260 003C01C7 178:00000264 88 StatText item type 179:00000265 025E30 "^0" the item 180: 181: ; item 3: 182:00000268 00000000 0 handle holder 183:0000026C 003C0019 60,25,80,455 display rectangle 00000270 005001C7 184:00000274 88 StatText item type 185:00000275 025E31 "^1" the item 186: 187: ; item 4: 188:00000278 00000000 0 handle holder 189:0000027C 00500019 80,25,100,455 display rectangle 00000280 006401C7 190:00000284 88 StatText item type 191:00000285 025E32 "^2" the item 192: 193: ; item 5: 194:00000288 00000000 0 handle holder 195:0000028C 00640019 100,25,120,455 display rectangle 00000290 007801C7 196:00000294 88 StatText item type 197:00000295 025E33 "^3" the item 198: 199: ; QUIT must be Item 6 or less 200: ; item 6: 201:00000298 00000000 0 handle holder 202:0000029C 008C0168 140,360,157,410 display rectangle 000002A0 009D019A 203:000002A4 04 button item type 204:000002A5 04515549 "QUIT" the item 000002A9 54 205: 206: ; NEXT must always be Item 7 207: ; item 7: 208:000002AA 00000000 0 handle holder 209:000002AE 008C00D7 140,215,157,265 display rectangle 000002B2 009D0109 210:000002B6 04 button item type 211:000002B7 044E4558 "NEXT" the item 000002BB 54 212: 213: ; BACK must always be Item 8 214: ; item 8: 215:000002BC 00000000 0 handle holder 216:000002C0 008C0046 140,70,157,120 display rectangle 000002C4 009D0078 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 7 217:000002C8 04 button item type 218:000002C9 04424143 "BACK" the item 000002CD 4B 219: 220: ; Order Dialog List 221: 222:000002CE $$ DITL,501,32 Dialog item list, ID = 501, ATTR=(32) 223:000002CE 0012 19 19 items in list 224: 225: ; item 1: 226:000002D0 00000000 0 handle holder 227:000002D4 001400AF 20,175,40,455 display rectangle 000002D8 002801C7 228:000002DC 88 StatText item type 229:000002DD 1F504342 "PCBASIC by Pterodactyl Software" ;the item 000002E1 41534943 000002E5 20627920 000002E9 50746572 000002ED 6F646163 000002F1 74796C20 000002F5 536F6674 000002F9 77617265 000002FD 00 230: 231: ; item 2: 232:000002FE 00000000 0 handle holder 233:00000302 003C007D 60,125,80,455 display rectangle 00000306 005001C7 234:0000030A 90 editxtds item type 235:0000030B 012000 " " 236: 237: ; item 3: 238:0000030E 00000000 0 handle holder 239:00000312 0055007D 85,125,105,455 display rectangle 00000316 006901C7 240:0000031A 90 editxtds item type 241:0000031B 012000 " " 242: 243: ; item 4: 244:0000031E 00000000 0 handle holder 245:00000322 006E007D 110,125,130,455 display rectangle 00000326 008201C7 246:0000032A 90 editxtds item type 247:0000032B 012000 " " 248: 249: ; item 5: 250:0000032E 00000000 0 handle holder 251:00000332 0087007D 135,125,155,455 display rectangle 00000336 009B01C7 252:0000033A 90 editxtds item type 253:0000033B 012000 " " 254: 255: ; item 6: McASM V6.0 Filename: &8073PCBASICDemoR Page no. 8 256:0000033E 00000000 0 handle holder 257:00000342 00A0007D 160,125,180,275 display rectangle 00000346 00B40113 258:0000034A 90 editxtds item type 259:0000034B 012000 " " 260: 261: ; item 7: 262:0000034E 00000000 0 handle holder 263:00000352 00BE0019 190,25,210,200 display rectangle 00000356 00D200C8 264:0000035A 05 chkbox item type 265:0000035B 0B537461 "Stand Alone" the item 0000035F 6E642041 00000363 6C6F6E65 00000367 00 266: 267: ; item 8: 268:00000368 00000000 0 handle holder 269:0000036C 00D20019 210,25,230,200 display rectangle 00000370 00E600C8 270:00000374 05 chkbox item type 271:00000375 034D5057 "MPW" the item 00000379 00 272: 273: ; item 9: 274:0000037A 00000000 0 handle holder 275:0000037E 00BE00C8 190,200,210,450 display rectangle 00000382 00D201C2 276:00000386 06 radio item type 277:00000387 1753656E "Send me a Manual ($50) " the item 0000038B 64206D65 0000038F 2061204D 00000393 616E7561 00000397 6C202824 0000039B 35302920 0000039F 00 278: 279: ; item 10: 280:000003A0 00000000 0 handle holder 281:000003A4 00D200C8 210,200,230,450 display rectangle 000003A8 00E601C2 282:000003AC 06 radio item type 283:000003AD 1B53656E "Send me a trial disk (free)" the item 000003B1 64206D65 000003B5 20612074 000003B9 7269616C 000003BD 20646973 000003C1 6B202866 000003C5 72656529 000003C9 00 284: 285: ; item 11: 286:000003CA 00000000 0 handle holder McASM V6.0 Filename: &8073PCBASICDemoR Page no. 9 287:000003CE 00E60168 230,360,247,410 display rectangle 000003D2 00F7019A 288:000003D6 04 button item type 289:000003D7 05507269 "Print" the item 000003DB 6E7400 290: 291: ; item 12: 292:000003DE 00000000 0 handle holder 293:000003E2 00E600D7 230, 215, 247, 265 display rectangle 000003E6 00F70109 294:000003EA 04 button item type 295:000003EB 04536176 "Save" the item 000003EF 65 296: 297: ; item 13: 298:000003F0 00000000 0 handle holder 299:000003F4 00E60046 230,70,247,120 display rectangle 000003F8 00F70078 300:000003FC 04 button item type 301:000003FD 0643616E "Cancel" the item 00000401 63656C 302: 303: ; item 14: 304:00000404 00000000 0 handle holder 305:00000408 003C0019 60,25,80,120 display rectangle 0000040C 00500078 306:00000410 88 StatText item type 307:00000411 044E616D "Name" the item 00000415 65 308: 309: ; item 15: 310:00000416 00000000 0 handle holder 311:0000041A 00550019 85,25,105,120 display rectangle 0000041E 00690078 312:00000422 88 StatText item type 313:00000423 07436F6D "Company" the item 00000427 70616E79 0000042B 00 314: 315: ; item 16: 316:0000042C 00000000 0 handle holder 317:00000430 006E0019 110,25,130,120 display rectangle 00000434 00820078 318:00000438 88 StatText item type 319:00000439 06537472 "Street" the item 0000043D 656574 320: 321: ; item 17: 322:00000440 00000000 0 handle holder 323:00000444 00870019 135,25,155,120 display rectangle 00000448 009B0078 324:0000044C 88 StatText item type 325:0000044D 04436974 "City" the item McASM V6.0 Filename: &8073PCBASICDemoR Page no. 10 00000451 79 326: 327: ; item 18: 328:00000452 00000000 0 handle holder 329:00000456 00A00019 160,25,180,120 display rectangle 0000045A 00B40078 330:0000045E 88 StatText item type 331:0000045F 0954656C "Telephone" the item 00000463 6570686F 00000467 6E6500 332: 333: ; item 19: 334:0000046A 00000000 0 handle holder 335:0000046E 000C0019 12,25,44,57 display rectangle 00000472 002C0039 336:00000476 20 iconitem item type 337:00000477 020101 257 Resource ID of icon 338: 339: ; Debugger Dialog List 340: 341:0000047A $$ DITL,650,32 Dialog item list, ID = 650, ATTR=(32) 342:0000047A 0008 9 9 items in list 343: 344: ; item 1: 345:0000047C 00000000 0 handle holder 346:00000480 00A00019 160,25,177,75 display rectangle 00000484 00B1004B 347:00000488 04 button item type 348:00000489 04537465 "Step" the item 0000048D 70 349: 350: ; item 2: 351:0000048E 00000000 0 handle holder 352:00000492 00A000AA 160,170,177,220 display rectangle 00000496 00B100DC 353:0000049A 04 button item type 354:0000049B 024730 "G0" the item 355: 356: ; item 3: 357:0000049E 00000000 0 handle holder 358:000004A2 00A0013B 160,315,177,365 display rectangle 000004A6 00B1016D 359:000004AA 04 button item type 360:000004AB 04517569 "Quit" the item 000004AF 74 361: 362: ; item 4: 363:000004B0 00000000 0 handle holder 364:000004B4 0014007D 20,125,40,455 display rectangle 000004B8 002801C7 365:000004BC 88 StatText item type 366:000004BD 10504342 "PCBASIC Debugger" 000004C1 41534943 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 11 000004C5 20446562 000004C9 75676765 000004CD 72 367: 368: ; item 5: 369:000004CE 00000000 0 handle holder 370:000004D2 00780019 120,25,140,190 display rectangle 000004D6 008C00BE 371:000004DA 88 StatText item type 372:000004DB 0853746F "Stop at " 000004DF 70206174 000004E3 20 373: 374: ; item 6: 375:000004E4 00000000 0 handle holder 376:000004E8 007800C8 120,200,140,340 display rectangle 000004EC 008C0154 377:000004F0 90 editxtds item type 378:000004F1 013000 "0" ;the item 379: 380: ; item 7: 381:000004F4 00000000 0 handle holder 382:000004F8 005F0019 95,25,115,380 display rectangle 000004FC 0073017C 383:00000500 88 StatText item type 384:00000501 064C696E "Line #" ;the item 00000505 652023 385: 386: ; item 8: 387:00000508 00000000 0 handle holder 388:0000050C 00320019 50,25,70,380 display rectangle 00000510 0046017C 389:00000514 88 StatText item type 390:00000515 0A612056 "a Variable" ; the item 00000519 61726961 0000051D 626C65 391: 392: ; item 9: 393:00000520 00000000 0 handle holder 394:00000524 00460019 70,25,90,380 display rectangle 00000528 005A017C 395:0000052C 88 StatText item type 396:0000052D 0A612056 "a Variable" ; the item 00000531 61726961 00000535 626C65 397: 398: ; 399: ; Add more StatText items here if you want to 400: ; display more than two variables at a time 401: ; 402: 403: 404: McASM V6.0 Filename: &8073PCBASICDemoR Page no. 12 405: ; Help Dialog Box 406: 407:00000538 $$ DLOG,303,32 dialog, ID = 303, ATTR=32 408:00000538 005A000F 90,15,260,495 bounds rectangle 0000053C 010401EF 409:00000540 0001 1 type = modal dialog box 410:00000542 FFFF visible initial state 411:00000544 0000 nogoaway no close box 412:00000546 00000000 0 refcon 413:0000054A 012F 303 resc ID of DLOG's item list 414:0000054C 00 | no title 415: 416: ; Order Dialog Box 417: 418:0000054D $$ DLOG,501,32 dialog, ID = 501, ATTR=32 419:0000054D 002D000F 45,15,300,495 bounds rectangle 00000551 012C01EF 420:00000555 0001 1 type = modal dialog box 421:00000557 FFFF visible initial state 422:00000559 0000 nogoaway no close box 423:0000055B 00000000 0 refcon 424:0000055F 01F5 501 resc ID of DLOG's item list 425:00000561 00 | no title 426: 427: ; Debugger Dialog Box 428: 429:00000562 $$ DLOG,650,32 dialog, ID = 650, ATTR=32 430:00000562 0064003C 100,60,280,450 bounds rectangle 00000566 011801C2 431:0000056A 0001 1 type = modal dialog box 432:0000056C FFFF visible initial state 433:0000056E 0000 nogoaway no close box 434:00000570 00000000 0 refcon 435:00000574 028A 650 resc ID of DLOG's item list 436:00000576 00 | no title 437: 438: 439: ; BASIC default Window 440: 441:00000577 $$ WIND,300,4 Window, id=300, attr=4 442:00000577 0028000A 40,10,325,500 0000057B 014501F4 443:0000057F 0008 8 Zoom type window !!! 444:00000581 FFFF visible 445:00000583 0000 nogoaway 446:00000585 00000000 0 refcon 447:00000589 0C504342 PCBASIC Demo title 0000058D 41534943 00000591 2044656D 00000595 6F 448: 449: 450: ; Vertical scroll bar for WIND 300 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 13 451: 452:00000596 $$ CNTL,300 453:00000596 00140190 20,400,220,416 0000059A 00DC01A0 454:0000059E 0000 0 initial value 455:000005A0 0000 Invisible 456:000005A2 2EE0 12000 max value 457:000005A4 0000 0 min value 458:000005A6 0010 16 scroll bar 459:000005A8 00000000 0 refcon 460:000005AC 13766572 "vertical scroll bar" ;title 000005B0 74696361 000005B4 6C207363 000005B8 726F6C6C 000005BC 20626172 461: 462: 463: ; Horizontal scroll bar for WIND 300 464: 465:000005C0 $$ CNTL,400 466:000005C0 00C80014 200,20,216,400 000005C4 00D80190 467:000005C8 0000 0 initial value 468:000005CA 0000 Invisible 469:000005CC 2EE0 12000 max value 470:000005CE 0000 0 min value 471:000005D0 0010 16 scroll bar 472:000005D2 00000000 0 refcon 473:000005D6 15686F72 "horizontal scroll bar" ;title 000005DA 697A6F6E 000005DE 74616C20 000005E2 7363726F 000005E6 6C6C2062 000005EA 6172 474: 475: ; Cursor 476:000005EC $$ CURS,300,4 477:000005EC 01801A70 $01801A70,$2648264A,$124D1249,$68099801,$88024002,$20022004,$10040808,$04080408 000005F0 2648264A 000005F4 124D1249 000005F8 68099801 000005FC 88024002 00000600 20022004 00000604 10040808 00000608 04080408 478:0000060C 00000000 $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000 00000610 00000000 00000614 00000000 00000618 00000000 0000061C 00000000 00000620 00000000 00000624 00000000 00000628 00000000 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 14 479:0000062C 00080008 $0008,$0008 480: 481: ; Pterodactyl Icon for menu item 482:00000630 $$ ICON,257 483:00000630 01000000 $01000000,$00800000,$00400000,$00600000,$00300000,$00380000,$001C0000,$001E0000 00000634 00800000 00000638 00400000 0000063C 00600000 00000640 00300000 00000644 00380000 00000648 001C0000 0000064C 001E0000 484:00000650 001F0000 $001F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618 00000654 000F8000 00000658 000FD800 0000065C 000FD3FC 00000660 000FE0FF 00000664 000FE1C0 00000668 000FF270 0000066C 001FF618 485:00000670 001FFC00 $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000 00000674 003FF000 00000678 003FF000 0000067C 00FFE000 00000680 01FFE000 00000684 07BFC000 00000688 FC3F8000 0000068C F07F8000 486:00000690 C07F4000 $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000 00000694 00FE6000 00000698 00F80000 0000069C 01F00000 000006A0 03C00000 000006A4 07800000 000006A8 3E000000 000006AC F8000000 487: 488: ; Pterodactyl Icon & Mask for Program Icon 489:000006B0 $$ ICN#,128 490:000006B0 01000000 $01000000,$00800000,$00400000,$00600000,$00300000,$00380000,$001C0000,$001E0000 000006B4 00800000 000006B8 00400000 000006BC 00600000 000006C0 00300000 000006C4 00380000 000006C8 001C0000 000006CC 001E0000 491:000006D0 001F0000 $001F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618 000006D4 000F8000 000006D8 000FD800 000006DC 000FD3FC 000006E0 000FE0FF 000006E4 000FE1C0 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 15 000006E8 000FF270 000006EC 001FF618 492:000006F0 001FFC00 $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000 000006F4 003FF000 000006F8 003FF000 000006FC 00FFE000 00000700 01FFE000 00000704 07BFC000 00000708 FC3F8000 0000070C F07F8000 493:00000710 C07F4000 $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000 00000714 00FE6000 00000718 00F80000 0000071C 01F00000 00000720 03C00000 00000724 07800000 00000728 3E000000 0000072C F8000000 494:00000730 FFFFFFFF $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF 00000734 FFFFFFFF 00000738 FFFFFFFF 0000073C FFFFFFFF 00000740 FFFFFFFF 00000744 FFFFFFFF 00000748 FFFFFFFF 0000074C FFFFFFFF 495:00000750 FFFFFFFF $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF 00000754 FFFFFFFF 00000758 FFFFFFFF 0000075C FFFFFFFF 00000760 FFFFFFFF 00000764 FFFFFFFF 00000768 FFFFFFFF 0000076C FFFFFFFF 496:00000770 FFFFFFFF $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF 00000774 FFFFFFFF 00000778 FFFFFFFF 0000077C FFFFFFFF 00000780 FFFFFFFF 00000784 FFFFFFFF 00000788 FFFFFFFF 0000078C FFFFFFFF 497:00000790 FFFFFFFF $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF 00000794 FFFFFFFF 00000798 FFFFFFFF 0000079C FFFFFFFF 000007A0 FFFFFFFF 000007A4 FFFFFFFF 000007A8 FFFFFFFF 000007AC FFFFFFFF 498: 499: ; Document Icon and mask for Document Icon 500:000007B0 $$ ICN#,129 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 16 501:000007B0 01073A26 $01073A26,$0084A369,$0044BAA9,$0064A229,$00373A26,$00380000,$001C0000,$000E0000 000007B4 0084A369 000007B8 0044BAA9 000007BC 0064A229 000007C0 00373A26 000007C4 00380000 000007C8 001C0000 000007CC 000E0000 502:000007D0 000F0000 $000F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618 000007D4 000F8000 000007D8 000FD800 000007DC 000FD3FC 000007E0 000FE0FF 000007E4 000FE1C0 000007E8 000FF270 000007EC 001FF618 503:000007F0 001FFC00 $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000 000007F4 003FF000 000007F8 003FF000 000007FC 00FFE000 00000800 01FFE000 00000804 07BFC000 00000808 FC3F8000 0000080C F07F8000 504:00000810 C07F4000 $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000 00000814 00FE6000 00000818 00F80000 0000081C 01F00000 00000820 03C00000 00000824 07800000 00000828 3E000000 0000082C F8000000 505:00000830 07C7FFFF $07C7FFFF,$07E7FFFF,$07F7FFFF,$03F7FFFF,$01FFFFFF,$00FFFFFF,$00FE0000,$007F0000 00000834 07E7FFFF 00000838 07F7FFFF 0000083C 03F7FFFF 00000840 01FFFFFF 00000844 00FFFFFF 00000848 00FE0000 0000084C 007F0000 506:00000850 007F8000 $007F8000,$007FFFFE,$007FFFFF,$003FFFFF,$003FFFFF,$003FFFFF,$003FFFFC,$003FFFFE 00000854 007FFFFE 00000858 007FFFFF 0000085C 003FFFFF 00000860 003FFFFF 00000864 003FFFFF 00000868 003FFFFC 0000086C 003FFFFE 507:00000870 007FFFFE $007FFFFE,$007FFF00,$00FFFC00,$03FFFC00,$FFFFF800,$FFFFF000,$FFFFE000,$FFFFE000 00000874 007FFF00 00000878 00FFFC00 0000087C 03FFFC00 00000880 FFFFF800 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 17 00000884 FFFFF000 00000888 FFFFE000 0000088C FFFFE000 508:00000890 F9FFE000 $F9FFE000,$E1FFF000,$03FFF000,$07FC0000,$0FFC0000,$FFF80000,$FF800000,$FF000000 00000894 E1FFF000 00000898 03FFF000 0000089C 07FC0000 000008A0 0FFC0000 000008A4 FFF80000 000008A8 FF800000 000008AC FF000000 509: 510: 511: ; Help dialog strings 512:000008B0 $$ STR#,303,32 513:000008B0 0010 16 514: ; 515: ; panel 1 : Using DEMO... 516:000008B2 3253656C "Select the items you would like to know about from" 000008B6 65637420 000008BA 74686520 000008BE 6974656D 000008C2 7320796F 000008C6 7520776F 000008CA 756C6420 000008CE 6C696B65 000008D2 20746F20 000008D6 6B6E6F77 000008DA 2061626F 000008DE 75742066 000008E2 726F6D 517:000008E5 2E746865 "the FEATURES menu. Use the ORDER menu to add a" 000008E9 20464541 000008ED 54555245 000008F1 53206D65 000008F5 6E752E20 000008F9 55736520 000008FD 74686520 00000901 4F524445 00000905 52206D65 00000909 6E752074 0000090D 6F206164 00000911 642061 518:00000914 2A6E616D "name to the mailing list file. Examine the" 00000918 6520746F 0000091C 20746865 00000920 206D6169 00000924 6C696E67 00000928 206C6973 0000092C 74206669 00000930 6C652E20 00000934 4578616D 00000938 696E6520 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 18 0000093C 746865 519:0000093F 2F424153 "BASIC source of this program. It is very short." 00000943 49432073 00000947 6F757263 0000094B 65206F66 0000094F 20746869 00000953 73207072 00000957 6F677261 0000095B 6D2E2049 0000095F 74206973 00000963 20766572 00000967 79207368 0000096B 6F72742E 520: ; panel 2 : Help with program... 521:0000096F 36507465 "Pterodactyl Software can help you get your application" 00000973 726F6461 00000977 6374796C 0000097B 20536F66 0000097F 74776172 00000983 65206361 00000987 6E206865 0000098B 6C702079 0000098F 6F752067 00000993 65742079 00000997 6F757220 0000099B 6170706C 0000099F 69636174 000009A3 696F6E 522:000009A6 3372756E "running quickly ! Order our manual for $50. If your" 000009AA 6E696E67 000009AE 20717569 000009B2 636B6C79 000009B6 2021204F 000009BA 72646572 000009BE 206F7572 000009C2 206D616E 000009C6 75616C20 000009CA 666F7220 000009CE 2435302E 000009D2 20496620 000009D6 796F7572 523:000009DA 38737461 "staff is too busy, you can hire a Pterodactyl programmer" 000009DE 66662069 000009E2 7320746F 000009E6 6F206275 000009EA 73792C20 000009EE 796F7520 000009F2 63616E20 000009F6 68697265 000009FA 20612050 000009FE 7465726F 00000A02 64616374 00000A06 796C2070 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 19 00000A0A 726F6772 00000A0E 616D6D65 00000A12 72 524:00000A13 34617320 "as a consultant at convenient fixed or hourly rates!" 00000A17 6120636F 00000A1B 6E73756C 00000A1F 74616E74 00000A23 20617420 00000A27 636F6E76 00000A2B 656E6965 00000A2F 6E742066 00000A33 69786564 00000A37 206F7220 00000A3B 686F7572 00000A3F 6C792072 00000A43 61746573 00000A47 21 525: ; panel 3 : How to order... 526:00000A48 324F7264 "Order the PCBASIC manual from Pterodactyl Software" 00000A4C 65722074 00000A50 68652050 00000A54 43424153 00000A58 4943206D 00000A5C 616E7561 00000A60 6C206672 00000A64 6F6D2050 00000A68 7465726F 00000A6C 64616374 00000A70 796C2053 00000A74 6F667477 00000A78 617265 527:00000A7B 25202020 " 200 Davey Glen Rd #416" 00000A7F 20202020 00000A83 20202020 00000A87 20202020 00000A8B 32303020 00000A8F 44617665 00000A93 7920476C 00000A97 656E2052 00000A9B 64202334 00000A9F 3136 528:00000AA1 1F202020 " Belmont CA 94002" 00000AA5 20202020 00000AA9 20202020 00000AAD 20202020 00000AB1 42656C6D 00000AB5 6F6E7420 00000AB9 43412039 00000ABD 34303032 529:00000AC1 20202020 " phone: (415) 591-5270" 00000AC5 20202020 00000AC9 20202070 00000ACD 686F6E65 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 20 00000AD1 3A092028 00000AD5 34313529 00000AD9 20353931 00000ADD 2D353237 00000AE1 30 530: ; panel 4 : Help with help boxes 531:00000AE2 36497473 "Its easy to create Help boxes like these with PCBASIC." 00000AE6 20656173 00000AEA 7920746F 00000AEE 20637265 00000AF2 61746520 00000AF6 48656C70 00000AFA 20626F78 00000AFE 6573206C 00000B02 696B6520 00000B06 74686573 00000B0A 65207769 00000B0E 74682050 00000B12 43424153 00000B16 49432E 532:00000B19 37466972 "First put the subject titles in Menu 303. Then put text" 00000B1D 73742070 00000B21 75742074 00000B25 68652073 00000B29 75626A65 00000B2D 63742074 00000B31 69746C65 00000B35 7320696E 00000B39 204D656E 00000B3D 75203330 00000B41 332E2054 00000B45 68656E20 00000B49 70757420 00000B4D 74657874 533:00000B51 34666F72 "for each subject, up to about 1K in String list 303." 00000B55 20656163 00000B59 68207375 00000B5D 626A6563 00000B61 742C2075 00000B65 7020746F 00000B69 2061626F 00000B6D 75742031 00000B71 4B20696E 00000B75 20537472 00000B79 696E6720 00000B7D 6C697374 00000B81 20333033 00000B85 2E 534:00000B86 33496620 "If you don't need Help boxes, just delete Menu 303." 00000B8A 796F7520 00000B8E 646F6E27 00000B92 74206E65 00000B96 65642048 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 21 00000B9A 656C7020 00000B9E 626F7865 00000BA2 732C206A 00000BA6 75737420 00000BAA 64656C65 00000BAE 7465204D 00000BB2 656E7520 00000BB6 3330332E 535: 536: ; Text of feature messages. This are used with : 537: ; RESTORE # ID% : READ OneLine$ 538: ; 539: ; International features 540: 541:00000BBA $$ STR#,501,32 542:00000BBA 0012 18 543:00000BBC 2C202020 " PCBASIC programs can be written for easy" 00000BC0 20504342 00000BC4 41534943 00000BC8 2070726F 00000BCC 6772616D 00000BD0 73206361 00000BD4 6E206265 00000BD8 20777269 00000BDC 7474656E 00000BE0 20666F72 00000BE4 20656173 00000BE8 79 544:00000BE9 36747261 "translation into foreign languages. The menus, dialogs" 00000BED 6E736C61 00000BF1 74696F6E 00000BF5 20696E74 00000BF9 6F20666F 00000BFD 72656967 00000C01 6E206C61 00000C05 6E677561 00000C09 6765732E 00000C0D 20546865 00000C11 206D656E 00000C15 75732C20 00000C19 6469616C 00000C1D 6F6773 545:00000C20 38616E64 "and titles can all be defined in the resource file. Even" 00000C24 20746974 00000C28 6C657320 00000C2C 63616E20 00000C30 616C6C20 00000C34 62652064 00000C38 6566696E 00000C3C 65642069 00000C40 6E207468 00000C44 65207265 00000C48 736F7572 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 22 00000C4C 63652066 00000C50 696C652E 00000C54 20457665 00000C58 6E 546:00000C59 35746578 "text messages, like these, can be put in the resource" 00000C5D 74206D65 00000C61 73736167 00000C65 65732C20 00000C69 6C696B65 00000C6D 20746865 00000C71 73652C20 00000C75 63616E20 00000C79 62652070 00000C7D 75742069 00000C81 6E207468 00000C85 65207265 00000C89 736F7572 00000C8D 6365 547:00000C8F 2466696C "file as string lists, such as this :" 00000C93 65206173 00000C97 20737472 00000C9B 696E6720 00000C9F 6C697374 00000CA3 732C2073 00000CA7 75636820 00000CAB 61732074 00000CAF 68697320 00000CB3 3A 548:00000CB4 00 "" 549:00000CB5 11202020 " $$ STR#,501,32" 00000CB9 24242053 00000CBD 5452232C 00000CC1 3530312C 00000CC5 3332 550:00000CC7 04202020 " 2" 00000CCB 32 551:00000CCC 2D202020 " PCBASIC programs can be written for easy" 00000CD0 20205043 00000CD4 42415349 00000CD8 43207072 00000CDC 6F677261 00000CE0 6D732063 00000CE4 616E2062 00000CE8 65207772 00000CEC 69747465 00000CF0 6E20666F 00000CF4 72206561 00000CF8 7379 552:00000CFA 28202020 " translation into foreign languages." 00000CFE 20207472 00000D02 616E736C 00000D06 6174696F 00000D0A 6E20696E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 23 00000D0E 746F2066 00000D12 6F726569 00000D16 676E206C 00000D1A 616E6775 00000D1E 61676573 00000D22 2E 553:00000D23 00 "" 554:00000D24 34546865 "The strings are used in BASIC like DATA statements :" 00000D28 20737472 00000D2C 696E6773 00000D30 20617265 00000D34 20757365 00000D38 6420696E 00000D3C 20424153 00000D40 4943206C 00000D44 696B6520 00000D48 44415441 00000D4C 20737461 00000D50 74656D65 00000D54 6E747320 00000D58 3A 555:00000D59 00 "" 556:00000D5A 13092020 " RESTORE #501" 00000D5E 20202020 00000D62 52455354 00000D66 4F524520 00000D6A 23353031 557:00000D6E 23092020 " READ Msg$1,Msg$2,Msg$3,Msg$4" 00000D72 20202020 00000D76 52454144 00000D7A 204D7367 00000D7E 24312C4D 00000D82 73672432 00000D86 2C4D7367 00000D8A 24332C4D 00000D8E 73672434 558:00000D92 2C092020 " ? Msg$1 : ? Msg$2 : ? Msg$3 : ? Msg$4" 00000D96 20202020 00000D9A 3F204D73 00000D9E 67243120 00000DA2 3A203F20 00000DA6 4D736724 00000DAA 32203A20 00000DAE 3F204D73 00000DB2 67243320 00000DB6 3A203F20 00000DBA 4D736724 00000DBE 34 559:00000DBF 00 " 560:00000DC0 03454E44 "END" 561: 562: ; IBM compatible 563: McASM V6.0 Filename: &8073PCBASICDemoR Page no. 24 564:00000DC4 $$ STR#,502,32 565:00000DC4 000E 14 566:00000DC6 2D202020 " PCBASIC makes converting IBM* PC programs" 00000DCA 20504342 00000DCE 41534943 00000DD2 206D616B 00000DD6 65732063 00000DDA 6F6E7665 00000DDE 7274696E 00000DE2 67204942 00000DE6 4DAA2050 00000DEA 43207072 00000DEE 6F677261 00000DF2 6D73 567:00000DF4 34746F20 "to Macintosh* programs simple. PCBASIC is compatible" 00000DF8 4D616369 00000DFC 6E746F73 00000E00 68AA2070 00000E04 726F6772 00000E08 616D7320 00000E0C 73696D70 00000E10 6C652E20 00000E14 50434241 00000E18 53494320 00000E1C 69732063 00000E20 6F6D7061 00000E24 7469626C 00000E28 65 568:00000E29 33776974 "with BASICA, the BASIC used on the IBM* PC. Special" 00000E2D 68204241 00000E31 53494341 00000E35 2C207468 00000E39 65204241 00000E3D 53494320 00000E41 75736564 00000E45 206F6E20 00000E49 74686520 00000E4D 49424DAA 00000E51 2050432E 00000E55 20537065 00000E59 6369616C 569:00000E5D 384D6163 "Macintosh features like dialog boxes and windows, can be" 00000E61 696E746F 00000E65 73682066 00000E69 65617475 00000E6D 72657320 00000E71 6C696B65 00000E75 20646961 00000E79 6C6F6720 00000E7D 626F7865 00000E81 7320616E 00000E85 64207769 00000E89 6E646F77 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 25 00000E8D 732C2063 00000E91 616E2062 00000E95 65 570:00000E96 37616464 "added in the resource file. Most special IBM functions," 00000E9A 65642069 00000E9E 6E207468 00000EA2 65207265 00000EA6 736F7572 00000EAA 63652066 00000EAE 696C652E 00000EB2 204D6F73 00000EB6 74207370 00000EBA 65636961 00000EBE 6C204942 00000EC2 4D206675 00000EC6 6E637469 00000ECA 6F6E732C 571:00000ECE 38747261 "translate automatically into Macintosh features. The IBM" 00000ED2 6E736C61 00000ED6 74652061 00000EDA 75746F6D 00000EDE 61746963 00000EE2 616C6C79 00000EE6 20696E74 00000EEA 6F204D61 00000EEE 63696E74 00000EF2 6F736820 00000EF6 66656174 00000EFA 75726573 00000EFE 2E205468 00000F02 65204942 00000F06 4D 572:00000F07 3A66756E "function keys become menu items. The multiple screen pages" 00000F0B 6374696F 00000F0F 6E206B65 00000F13 79732062 00000F17 65636F6D 00000F1B 65206D65 00000F1F 6E752069 00000F23 74656D73 00000F27 2E205468 00000F2B 65206D75 00000F2F 6C746970 00000F33 6C652073 00000F37 63726565 00000F3B 6E207061 00000F3F 676573 573:00000F42 33617661 "available on some adapters, become multiple windows" 00000F46 696C6162 00000F4A 6C65206F 00000F4E 6E20736F 00000F52 6D652061 00000F56 64617074 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 26 00000F5A 6572732C 00000F5E 20626563 00000F62 6F6D6520 00000F66 6D756C74 00000F6A 69706C65 00000F6E 2077696E 00000F72 646F7773 574:00000F76 3A6F6E20 "on the Macintosh. The programs can even read back the text" 00000F7A 74686520 00000F7E 4D616369 00000F82 6E746F73 00000F86 682E2054 00000F8A 68652070 00000F8E 726F6772 00000F92 616D7320 00000F96 63616E20 00000F9A 6576656E 00000F9E 20726561 00000FA2 64206261 00000FA6 636B2074 00000FAA 68652074 00000FAE 657874 575:00000FB1 2F777269 "written on the screen in PCBASIC, as in BASICA." 00000FB5 7474656E 00000FB9 206F6E20 00000FBD 74686520 00000FC1 73637265 00000FC5 656E2069 00000FC9 6E205043 00000FCD 42415349 00000FD1 432C2061 00000FD5 7320696E 00000FD9 20424153 00000FDD 4943412E 576:00000FE1 00 "" 577:00000FE2 3849424D "IBM is a trademark of Internation Business Machines Inc." 00000FE6 20697320 00000FEA 61207472 00000FEE 6164656D 00000FF2 61726B20 00000FF6 6F662049 00000FFA 6E746572 00000FFE 6E617469 00001002 6F6E2042 00001006 7573696E 0000100A 65737320 0000100E 4D616368 00001012 696E6573 00001016 20496E63 0000101A 2E 578:0000101B 2F4D6163 "Macintosh is a trademark of Apple Computer Inc." 0000101F 696E746F 00001023 73682069 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 27 00001027 73206120 0000102B 74726164 0000102F 656D6172 00001033 6B206F66 00001037 20417070 0000103B 6C652043 0000103F 6F6D7075 00001043 74657220 00001047 496E632E 579:0000104B 03454E44 "END" 580: 581: ; Menu & function keys 582: 583:0000104F $$ STR#,503,32 584:0000104F 0012 18 585:00001051 35202020 " In PCBASIC, the menus are created from resources." 00001055 20496E20 00001059 50434241 0000105D 5349432C 00001061 20746865 00001065 206D656E 00001069 75732061 0000106D 72652063 00001071 72656174 00001075 65642066 00001079 726F6D20 0000107D 7265736F 00001081 75726365 00001085 732E 586:00001087 3A4F7468 "Other BASIC implementations use BASIC statements to create" 0000108B 65722042 0000108F 41534943 00001093 20696D70 00001097 6C656D65 0000109B 6E746174 0000109F 696F6E73 000010A3 20757365 000010A7 20424153 000010AB 49432073 000010AF 74617465 000010B3 6D656E74 000010B7 7320746F 000010BB 20637265 000010BF 617465 587:000010C2 35657665 "every item of every menu. With PCBASIC, the menus are" 000010C6 72792069 000010CA 74656D20 000010CE 6F662065 000010D2 76657279 000010D6 206D656E 000010DA 752E2057 000010DE 69746820 000010E2 50434241 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 28 000010E6 5349432C 000010EA 20746865 000010EE 206D656E 000010F2 75732061 000010F6 7265 588:000010F8 39646566 "defined with a resource compiler or editor. Of course the" 000010FC 696E6564 00001100 20776974 00001104 68206120 00001108 7265736F 0000110C 75726365 00001110 20636F6D 00001114 70696C65 00001118 72206F72 0000111C 20656469 00001120 746F722E 00001124 204F6620 00001128 636F7572 0000112C 73652074 00001130 6865 589:00001132 3B70726F "program can change any menu item with BASIC statements. The" 00001136 6772616D 0000113A 2063616E 0000113E 20636861 00001142 6E676520 00001146 616E7920 0000114A 6D656E75 0000114E 20697465 00001152 6D207769 00001156 74682042 0000115A 41534943 0000115E 20737461 00001162 74656D65 00001166 6E74732E 0000116A 20546865 590:0000116E 396D656E "menu items can be enabled, disabled, inhibited, or marked" 00001172 75206974 00001176 656D7320 0000117A 63616E20 0000117E 62652065 00001182 6E61626C 00001186 65642C20 0000118A 64697361 0000118E 626C6564 00001192 2C20696E 00001196 68696269 0000119A 7465642C 0000119E 206F7220 000011A2 6D61726B 000011A6 6564 591:000011A8 29776974 "with a check mark or any other character." 000011AC 68206120 000011B0 63686563 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 29 000011B4 6B206D61 000011B8 726B206F 000011BC 7220616E 000011C0 79206F74 000011C4 68657220 000011C8 63686172 000011CC 61637465 000011D0 722E 592:000011D2 00 "" 593:000011D3 35202020 " PCBASIC can compile many programs written for the" 000011D7 20504342 000011DB 41534943 000011DF 2063616E 000011E3 20636F6D 000011E7 70696C65 000011EB 206D616E 000011EF 79207072 000011F3 6F677261 000011F7 6D732077 000011FB 72697474 000011FF 656E2066 00001203 6F722074 00001207 6865 594:00001209 3B49424D "IBM* PC or compatibles. Those programs may use the function" 0000120D AA205043 00001211 206F7220 00001215 636F6D70 00001219 61746962 0000121D 6C65732E 00001221 2054686F 00001225 73652070 00001229 726F6772 0000122D 616D7320 00001231 6D617920 00001235 75736520 00001239 74686520 0000123D 66756E63 00001241 74696F6E 595:00001245 386B6579 "keys on those machines. BASICA statements such as these," 00001249 73206F6E 0000124D 2074686F 00001251 7365206D 00001255 61636869 00001259 6E65732E 0000125D 20424153 00001261 49434120 00001265 73746174 00001269 656D656E 0000126D 74732073 00001271 75636820 00001275 61732074 00001279 68657365 0000127D 2C McASM V6.0 Filename: &8073PCBASICDemoR Page no. 30 596:0000127E 00 "" 597:0000127F 23092020 " KEY (1) ON : ON KEY(1) GOSUB 100" 00001283 4B455920 00001287 28312920 0000128B 4F4E203A 0000128F 204F4E20 00001293 4B455928 00001297 31292047 0000129B 4F535542 0000129F 20313030 598:000012A3 00 "" 599:000012A4 3A617265 "are compiled without change. The function keys become menu" 000012A8 20636F6D 000012AC 70696C65 000012B0 64207769 000012B4 74686F75 000012B8 74206368 000012BC 616E6765 000012C0 2E205468 000012C4 65206675 000012C8 6E637469 000012CC 6F6E206B 000012D0 65797320 000012D4 6265636F 000012D8 6D65206D 000012DC 656E75 600:000012DF 3A697465 "items. They can be grouped into any number of menus, which" 000012E3 6D732E20 000012E7 54686579 000012EB 2063616E 000012EF 20626520 000012F3 67726F75 000012F7 70656420 000012FB 696E746F 000012FF 20616E79 00001303 206E756D 00001307 62657220 0000130B 6F66206D 0000130F 656E7573 00001313 2C207768 00001317 696368 601:0000131A 2D63616E "can be arranged in any order on the menu bar." 0000131E 20626520 00001322 61727261 00001326 6E676564 0000132A 20696E20 0000132E 616E7920 00001332 6F726465 00001336 72206F6E 0000133A 20746865 0000133E 206D656E 00001342 75206261 00001346 722E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 31 602:00001348 03454E44 "END" 603: 604: ; Dialogs & Alerts 605: 606:0000134C $$ STR#,504,32 607:0000134C 0013 19 608:0000134E 33202020 " Dialogs and alert boxes are easy to create with" 00001352 20446961 00001356 6C6F6773 0000135A 20616E64 0000135E 20616C65 00001362 72742062 00001366 6F786573 0000136A 20617265 0000136E 20656173 00001372 7920746F 00001376 20637265 0000137A 61746520 0000137E 77697468 609:00001382 33504342 "PCBASIC. One BASIC statement will show the operator" 00001386 41534943 0000138A 2E204F6E 0000138E 65204241 00001392 53494320 00001396 73746174 0000139A 656D656E 0000139E 74207769 000013A2 6C6C2073 000013A6 686F7720 000013AA 74686520 000013AE 6F706572 000013B2 61746F72 610:000013B6 3961204D "a Modal Dialog or an Alert, wait for the operator to make" 000013BA 6F64616C 000013BE 20446961 000013C2 6C6F6720 000013C6 6F722061 000013CA 6E20416C 000013CE 6572742C 000013D2 20776169 000013D6 7420666F 000013DA 72207468 000013DE 65206F70 000013E2 65726174 000013E6 6F722074 000013EA 6F206D61 000013EE 6B65 611:000013F0 36612073 "a selection or edit text, and return when the operator" 000013F4 656C6563 000013F8 74696F6E 000013FC 206F7220 00001400 65646974 00001404 20746578 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 32 00001408 742C2061 0000140C 6E642072 00001410 65747572 00001414 6E207768 00001418 656E2074 0000141C 6865206F 00001420 70657261 00001424 746F72 612:00001427 29707573 "pushes a button. It is as simple as this:" 0000142B 68657320 0000142F 61206275 00001433 74746F6E 00001437 2E204974 0000143B 20697320 0000143F 61732073 00001443 696D706C 00001447 65206173 0000144B 20746869 0000144F 733A 613:00001451 00 "" 614:00001452 2D092020 " REM Display alert box 500 as a Stop Alert." 00001456 52454D20 0000145A 44697370 0000145E 6C617920 00001462 616C6572 00001466 7420626F 0000146A 78203530 0000146E 30206173 00001472 20612053 00001476 746F7020 0000147A 416C6572 0000147E 742E 615:00001480 2C092020 " REM The number of the button the operator" 00001484 52454D20 00001488 54686520 0000148C 6E756D62 00001490 6572206F 00001494 66207468 00001498 65206275 0000149C 74746F6E 000014A0 20746865 000014A4 206F7065 000014A8 7261746F 000014AC 72 616:000014AD 22092020 " REM pressed will be in CHOICE%." 000014B1 52454D20 000014B5 70726573 000014B9 73656420 000014BD 77696C6C 000014C1 20626520 000014C5 696E2043 000014C9 484F4943 000014CD 45252E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 33 617:000014D0 1E092020 " 100 CHOICE%=ERROR(501,STOP)" 000014D4 31303020 000014D8 43484F49 000014DC 4345253D 000014E0 4552524F 000014E4 52283530 000014E8 312C5354 000014EC 4F5029 618:000014EF 00 "" 619:000014F0 2C092020 " REM Display dialog 500. Wait for a reply." 000014F4 52454D20 000014F8 44697370 000014FC 6C617920 00001500 6469616C 00001504 6F672035 00001508 30302E20 0000150C 57616974 00001510 20666F72 00001514 20612072 00001518 65706C79 0000151C 2E 620:0000151D 2C092020 " REM The button number will be in CHOICE%." 00001521 52454D20 00001525 54686520 00001529 62757474 0000152D 6F6E206E 00001531 756D6265 00001535 72207769 00001539 6C6C2062 0000153D 6520696E 00001541 2043484F 00001545 49434525 00001549 2E 621:0000154A 15092020 " CHOICE%=DIALOG#500" 0000154E 43484F49 00001552 4345253D 00001556 4449414C 0000155A 4F472335 0000155E 3030 622:00001560 00 "" 623:00001561 33092020 " REM Remove the box. The blank spot on the window" 00001565 52454D20 00001569 52656D6F 0000156D 76652074 00001571 68652062 00001575 6F782E20 00001579 54686520 0000157D 626C616E 00001581 6B207370 00001585 6F74206F 00001589 6E207468 0000158D 65207769 00001591 6E646F77 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 34 624:00001595 29092020 " REM will be drawn again, automatically" 00001599 52454D20 0000159D 77696C6C 000015A1 20626520 000015A5 64726177 000015A9 6E206167 000015AD 61696E2C 000015B1 20617574 000015B5 6F6D6174 000015B9 6963616C 000015BD 6C79 625:000015BF 0E092020 " CLOSE#500" 000015C3 2020434C 000015C7 4F534523 000015CB 353030 626:000015CE 03454E44 "END" 627: 628: ; Mouse, fonts and editing 629: 630:000015D2 $$ STR#,505,32 631:000015D2 0014 20 632:000015D4 3C202020 " PCBASIC handles the mouse activity for the system, menus," 000015D8 50434241 000015DC 53494320 000015E0 68616E64 000015E4 6C657320 000015E8 74686520 000015EC 6D6F7573 000015F0 65206163 000015F4 74697669 000015F8 74792066 000015FC 6F722074 00001600 68652073 00001604 79737465 00001608 6D2C206D 0000160C 656E7573 00001610 2C 633:00001611 3B646961 "dialog boxes and scroll bars. The BASIC programmer only has" 00001615 6C6F6720 00001619 626F7865 0000161D 7320616E 00001621 64207363 00001625 726F6C6C 00001629 20626172 0000162D 732E2054 00001631 68652042 00001635 41534943 00001639 2070726F 0000163D 6772616D 00001641 6D657220 00001645 6F6E6C79 00001649 20686173 634:0000164D 3B746F20 "to take care of clicks within the main windows. PCBASIC can" McASM V6.0 Filename: &8073PCBASICDemoR Page no. 35 00001651 74616B65 00001655 20636172 00001659 65206F66 0000165D 20636C69 00001661 636B7320 00001665 77697468 00001669 696E2074 0000166D 6865206D 00001671 61696E20 00001675 77696E64 00001679 6F77732E 0000167D 20504342 00001681 41534943 00001685 2063616E 635:00001689 3C657665 "even vector to a line number as soon as the mouse is clicked" 0000168D 6E207665 00001691 63746F72 00001695 20746F20 00001699 61206C69 0000169D 6E65206E 000016A1 756D6265 000016A5 72206173 000016A9 20736F6F 000016AD 6E206173 000016B1 20746865 000016B5 206D6F75 000016B9 73652069 000016BD 7320636C 000016C1 69636B65 000016C5 64 636:000016C6 15696E20 "in the active window." 000016CA 74686520 000016CE 61637469 000016D2 76652077 000016D6 696E646F 000016DA 772E 637:000016DC 0120 " " 638:000016DE 3E202020 " The special Edit menu simplifies editing. It takes care of" 000016E2 20546865 000016E6 20737065 000016EA 6369616C 000016EE 20456469 000016F2 74206D65 000016F6 6E752073 000016FA 696D706C 000016FE 69666965 00001702 73206564 00001706 6974696E 0000170A 672E2049 0000170E 74207461 00001712 6B657320 00001716 63617265 0000171A 206F66 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 36 639:0000171D 3E274375 "'Cut', 'Copy' and 'Paste' for your dialog boxes automatically." 00001721 74272C20 00001725 27436F70 00001729 79272061 0000172D 6E642027 00001731 50617374 00001735 65272066 00001739 6F722079 0000173D 6F757220 00001741 6469616C 00001745 6F672062 00001749 6F786573 0000174D 20617574 00001751 6F6D6174 00001755 6963616C 00001759 6C792E 640:0000175C 3A427574 "But you can handle the Edit menu selections for the active" 00001760 20796F75 00001764 2063616E 00001768 2068616E 0000176C 646C6520 00001770 74686520 00001774 45646974 00001778 206D656E 0000177C 75207365 00001780 6C656374 00001784 696F6E73 00001788 20666F72 0000178C 20746865 00001790 20616374 00001794 697665 641:00001797 3D77696E "window yourself. The Edit menu can vector to a BASIC line, or" 0000179B 646F7720 0000179F 796F7572 000017A3 73656C66 000017A7 2E205468 000017AB 65204564 000017AF 6974206D 000017B3 656E7520 000017B7 63616E20 000017BB 76656374 000017BF 6F722074 000017C3 6F206120 000017C7 42415349 000017CB 43206C69 000017CF 6E652C20 000017D3 6F72 642:000017D5 38796F75 "you can poll for menu selections whenever you are ready." 000017D9 2063616E 000017DD 20706F6C 000017E1 6C20666F 000017E5 72206D65 000017E9 6E752073 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 37 000017ED 656C6563 000017F1 74696F6E 000017F5 73207768 000017F9 656E6576 000017FD 65722079 00001801 6F752061 00001805 72652072 00001809 65616479 0000180D 2E 643:0000180E 0120 " " 644:00001810 3D202020 " PCBASIC has powerful mouse sensing commands, to make your" 00001814 20504342 00001818 41534943 0000181C 20686173 00001820 20706F77 00001824 65726675 00001828 6C206D6F 0000182C 75736520 00001830 73656E73 00001834 696E6720 00001838 636F6D6D 0000183C 616E6473 00001840 2C20746F 00001844 206D616B 00001848 6520796F 0000184C 7572 645:0000184E 3E6A6F62 "job still easier. Your BASIC program can detect a single click" 00001852 20737469 00001856 6C6C2065 0000185A 61736965 0000185E 722E2059 00001862 6F757220 00001866 42415349 0000186A 43207072 0000186E 6F677261 00001872 6D206361 00001876 6E206465 0000187A 74656374 0000187E 20612073 00001882 696E676C 00001886 6520636C 0000188A 69636B 646:0000188D 3D6F7220 "or a multiple click with one MOUSE function call. Other calls" 00001891 61206D75 00001895 6C746970 00001899 6C652063 0000189D 6C69636B 000018A1 20776974 000018A5 68206F6E 000018A9 65204D4F 000018AD 55534520 000018B1 66756E63 000018B5 74696F6E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 38 000018B9 2063616C 000018BD 6C2E204F 000018C1 74686572 000018C5 2063616C 000018C9 6C73 647:000018CB 3F726574 "return the starting, ending and current locations of the mouse." 000018CF 75726E20 000018D3 74686520 000018D7 73746172 000018DB 74696E67 000018DF 2C20656E 000018E3 64696E67 000018E7 20616E64 000018EB 20637572 000018EF 72656E74 000018F3 206C6F63 000018F7 6174696F 000018FB 6E73206F 000018FF 66207468 00001903 65206D6F 00001907 7573652E 648:0000190B 3F546865 "The functions can return either graphic coordinates or the line" 0000190F 2066756E 00001913 6374696F 00001917 6E732063 0000191B 616E2072 0000191F 65747572 00001923 6E206569 00001927 74686572 0000192B 20677261 0000192F 70686963 00001933 20636F6F 00001937 7264696E 0000193B 61746573 0000193F 206F7220 00001943 74686520 00001947 6C696E65 649:0000194B 3D616E64 "and column location for editing text! That makes highlighting" 0000194F 20636F6C 00001953 756D6E20 00001957 6C6F6361 0000195B 74696F6E 0000195F 20666F72 00001963 20656469 00001967 74696E67 0000196B 20746578 0000196F 74212054 00001973 68617420 00001977 6D616B65 0000197B 73206869 0000197F 67686C69 00001983 67687469 00001987 6E67 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 39 650:00001989 3A73656C "selected text simple, even when using a proportional font." 0000198D 65637465 00001991 64207465 00001995 78742073 00001999 696D706C 0000199D 652C2065 000019A1 76656E20 000019A5 7768656E 000019A9 20757369 000019AD 6E672061 000019B1 2070726F 000019B5 706F7274 000019B9 696F6E61 000019BD 6C20666F 000019C1 6E742E 651:000019C4 03454E44 "END" 652: 653: ; Large programs and segmentation 654: 655:000019C8 $$ STR#,506,32 656:000019C8 0011 17 657:000019CA 3A202020 " PCBASIC compiles large programs and systems containing" 000019CE 20504342 000019D2 41534943 000019D6 20636F6D 000019DA 70696C65 000019DE 73206C61 000019E2 72676520 000019E6 70726F67 000019EA 72616D73 000019EE 20616E64 000019F2 20737973 000019F6 74656D73 000019FA 20636F6E 000019FE 7461696E 00001A02 696E67 658:00001A05 3A6D616E "many programs. You can divide large programs into segments" 00001A09 79207072 00001A0D 6F677261 00001A11 6D732E20 00001A15 596F7520 00001A19 63616E20 00001A1D 64697669 00001A21 6465206C 00001A25 61726765 00001A29 2070726F 00001A2D 6772616D 00001A31 7320696E 00001A35 746F2073 00001A39 65676D65 00001A3D 6E7473 659:00001A40 3C776974 "with one simple command. These segments will be read in from" 00001A44 68206F6E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 40 00001A48 65207369 00001A4C 6D706C65 00001A50 20636F6D 00001A54 6D616E64 00001A58 2E205468 00001A5C 65736520 00001A60 7365676D 00001A64 656E7473 00001A68 2077696C 00001A6C 6C206265 00001A70 20726561 00001A74 6420696E 00001A78 2066726F 00001A7C 6D 660:00001A7D 3A746865 "the disk when they are needed. They will be discarded when" 00001A81 20646973 00001A85 6B207768 00001A89 656E2074 00001A8D 68657920 00001A91 61726520 00001A95 6E656564 00001A99 65642E20 00001A9D 54686579 00001AA1 2077696C 00001AA5 6C206265 00001AA9 20646973 00001AAD 63617264 00001AB1 65642077 00001AB5 68656E 661:00001AB8 3A6D656D "memory space is short. This happens automatically, without" 00001ABC 6F727920 00001AC0 73706163 00001AC4 65206973 00001AC8 2073686F 00001ACC 72742E20 00001AD0 54686973 00001AD4 20686170 00001AD8 70656E73 00001ADC 20617574 00001AE0 6F6D6174 00001AE4 6963616C 00001AE8 6C792C20 00001AEC 77697468 00001AF0 6F7574 662:00001AF3 23616E79 "any effort by the BASIC programmer." 00001AF7 20656666 00001AFB 6F727420 00001AFF 62792074 00001B03 68652042 00001B07 41534943 00001B0B 2070726F 00001B0F 6772616D 00001B13 6D65722E McASM V6.0 Filename: &8073PCBASICDemoR Page no. 41 663:00001B17 00 "" 664:00001B18 3E202020 " Many small programs can be compiled together as a package." 00001B1C 204D616E 00001B20 7920736D 00001B24 616C6C20 00001B28 70726F67 00001B2C 72616D73 00001B30 2063616E 00001B34 20626520 00001B38 636F6D70 00001B3C 696C6564 00001B40 20746F67 00001B44 65746865 00001B48 72206173 00001B4C 20612070 00001B50 61636B61 00001B54 67652E 665:00001B57 3E546865 "These programs can all be in memory at the same time. When one" 00001B5B 73652070 00001B5F 726F6772 00001B63 616D7320 00001B67 63616E20 00001B6B 616C6C20 00001B6F 62652069 00001B73 6E206D65 00001B77 6D6F7279 00001B7B 20617420 00001B7F 74686520 00001B83 73616D65 00001B87 2074696D 00001B8B 652E2057 00001B8F 68656E20 00001B93 6F6E65 666:00001B96 3F70726F "program calls another program in the package, the code will not" 00001B9A 6772616D 00001B9E 2063616C 00001BA2 6C732061 00001BA6 6E6F7468 00001BAA 65722070 00001BAE 726F6772 00001BB2 616D2069 00001BB6 6E207468 00001BBA 65207061 00001BBE 636B6167 00001BC2 652C2074 00001BC6 68652063 00001BCA 6F646520 00001BCE 77696C6C 00001BD2 206E6F74 667:00001BD6 1E686176 "have to be read from the disk." 00001BDA 6520746F 00001BDE 20626520 00001BE2 72656164 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 42 00001BE6 2066726F 00001BEA 6D207468 00001BEE 65206469 00001BF2 736B2E 668:00001BF5 00 "" 669:00001BF6 3B202020 " Programs with large data spaces are handled easily too." 00001BFA 2050726F 00001BFE 6772616D 00001C02 73207769 00001C06 7468206C 00001C0A 61726765 00001C0E 20646174 00001C12 61207370 00001C16 61636573 00001C1A 20617265 00001C1E 2068616E 00001C22 646C6564 00001C26 20656173 00001C2A 696C7920 00001C2E 746F6F2E 670:00001C32 40417272 "Arrays are dynamic. They can be erased and created again, with a" 00001C36 61797320 00001C3A 61726520 00001C3E 64796E61 00001C42 6D69632E 00001C46 20546865 00001C4A 79206361 00001C4E 6E206265 00001C52 20657261 00001C56 73656420 00001C5A 616E6420 00001C5E 63726561 00001C62 74656420 00001C66 61676169 00001C6A 6E2C2077 00001C6E 69746820 00001C72 61 671:00001C73 3E646966 "different size, while the program is running. Large arrays are" 00001C77 66657265 00001C7B 6E742073 00001C7F 697A652C 00001C83 20776869 00001C87 6C652074 00001C8B 68652070 00001C8F 726F6772 00001C93 616D2069 00001C97 73207275 00001C9B 6E6E696E 00001C9F 672E204C 00001CA3 61726765 00001CA7 20617272 00001CAB 61797320 00001CAF 617265 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 43 672:00001CB2 3D72656C "relocatable blocks. The move around in memory to reuse space." 00001CB6 6F636174 00001CBA 61626C65 00001CBE 20626C6F 00001CC2 636B732E 00001CC6 20546865 00001CCA 206D6F76 00001CCE 65206172 00001CD2 6F756E64 00001CD6 20696E20 00001CDA 6D656D6F 00001CDE 72792074 00001CE2 6F207265 00001CE6 75736520 00001CEA 73706163 00001CEE 652E 673:00001CF0 03454E44 "END" 674: 675: ; Industrial strength 676: 677:00001CF4 $$ STR#,507,32 678:00001CF4 000C 12 679:00001CF6 3D202020 " PCBASIC is an 'Industrial Strength' programming language." 00001CFA 20504342 00001CFE 41534943 00001D02 20697320 00001D06 616E2027 00001D0A 496E6475 00001D0E 73747269 00001D12 616C2053 00001D16 7472656E 00001D1A 67746827 00001D1E 2070726F 00001D22 6772616D 00001D26 6D696E67 00001D2A 206C616E 00001D2E 67756167 00001D32 652E 680:00001D34 40546869 "This means all the features of the Macintosh are accessible from" 00001D38 73206D65 00001D3C 616E7320 00001D40 616C6C20 00001D44 74686520 00001D48 66656174 00001D4C 75726573 00001D50 206F6620 00001D54 74686520 00001D58 4D616369 00001D5C 6E746F73 00001D60 68206172 00001D64 65206163 00001D68 63657373 00001D6C 69626C65 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 44 00001D70 2066726F 00001D74 6D 681:00001D75 3A504342 "PCBASIC. The important features, such as dialogs, windows," 00001D79 41534943 00001D7D 2E205468 00001D81 6520696D 00001D85 706F7274 00001D89 616E7420 00001D8D 66656174 00001D91 75726573 00001D95 2C207375 00001D99 63682061 00001D9D 73206469 00001DA1 616C6F67 00001DA5 732C2077 00001DA9 696E646F 00001DAD 77732C 682:00001DB0 41736372 "scroll bars, menus, and alert boxes are all part of the extended" 00001DB4 6F6C6C20 00001DB8 62617273 00001DBC 2C206D65 00001DC0 6E75732C 00001DC4 2020616E 00001DC8 6420616C 00001DCC 65727420 00001DD0 626F7865 00001DD4 73206172 00001DD8 6520616C 00001DDC 6C207061 00001DE0 7274206F 00001DE4 66207468 00001DE8 65206578 00001DEC 74656E64 00001DF0 6564 683:00001DF2 42424153 "BASIC language. All of the other features in the ROM and Operating" 00001DF6 4943206C 00001DFA 616E6775 00001DFE 6167652E 00001E02 20416C6C 00001E06 206F6620 00001E0A 74686520 00001E0E 6F746865 00001E12 72206665 00001E16 61747572 00001E1A 65732069 00001E1E 6E207468 00001E22 6520524F 00001E26 4D20616E 00001E2A 64204F70 00001E2E 65726174 00001E32 696E67 684:00001E35 3E537973 "System, can be called from BASIC. Special BASIC statements can" 00001E39 74656D2C McASM V6.0 Filename: &8073PCBASICDemoR Page no. 45 00001E3D 2063616E 00001E41 20626520 00001E45 63616C6C 00001E49 65642066 00001E4D 726F6D20 00001E51 42415349 00001E55 432E2053 00001E59 70656369 00001E5D 616C2042 00001E61 41534943 00001E65 20737461 00001E69 74656D65 00001E6D 6E747320 00001E71 63616E 685:00001E74 3F616363 "access any of the ToolBox and QuickDraw routines. Even register" 00001E78 65737320 00001E7C 616E7920 00001E80 6F662074 00001E84 68652054 00001E88 6F6F6C42 00001E8C 6F782061 00001E90 6E642051 00001E94 7569636B 00001E98 44726177 00001E9C 20726F75 00001EA0 74696E65 00001EA4 732E2045 00001EA8 76656E20 00001EAC 72656769 00001EB0 73746572 686:00001EB4 3F626173 "based calls, and calls that return function values can be used." 00001EB8 65642063 00001EBC 616C6C73 00001EC0 2C20616E 00001EC4 64206361 00001EC8 6C6C7320 00001ECC 74686174 00001ED0 20726574 00001ED4 75726E20 00001ED8 66756E63 00001EDC 74696F6E 00001EE0 2076616C 00001EE4 75657320 00001EE8 63616E20 00001EEC 62652075 00001EF0 7365642E 687:00001EF4 3B506173 "Pascal or Assembler code can be linked to PCBASIC programs," 00001EF8 63616C20 00001EFC 6F722041 00001F00 7373656D 00001F04 626C6572 00001F08 20636F64 00001F0C 65206361 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 46 00001F10 6E206265 00001F14 206C696E 00001F18 6B656420 00001F1C 746F2050 00001F20 43424153 00001F24 49432070 00001F28 726F6772 00001F2C 616D732C 688:00001F30 3D6F7220 "or short segments of 68000 Assembly language can actually be " 00001F34 73686F72 00001F38 74207365 00001F3C 676D656E 00001F40 7473206F 00001F44 66203638 00001F48 30303020 00001F4C 41737365 00001F50 6D626C79 00001F54 206C616E 00001F58 67756167 00001F5C 65206361 00001F60 6E206163 00001F64 7475616C 00001F68 6C792062 00001F6C 6520 689:00001F6E 1F696D62 "imbedded within the BASIC code." 00001F72 65646465 00001F76 64207769 00001F7A 7468696E 00001F7E 20746865 00001F82 20424153 00001F86 49432063 00001F8A 6F64652E 690:00001F8E 03454E44 "END" 691: 692: ; Introduction 693: 694:00001F92 $$ STR#,508,32 695:00001F92 0011 17 696:00001F94 37205043 " PCBASIC is a BASIC compiler from Pterodactyl Software." 00001F98 42415349 00001F9C 43206973 00001FA0 20612042 00001FA4 41534943 00001FA8 20636F6D 00001FAC 70696C65 00001FB0 72206672 00001FB4 6F6D2050 00001FB8 7465726F 00001FBC 64616374 00001FC0 796C2053 00001FC4 6F667477 00001FC8 6172652E 697:00001FCC 022020 " " McASM V6.0 Filename: &8073PCBASICDemoR Page no. 47 698:00001FCF 2E205468 " There are two versions on the shareware disk:" 00001FD3 65726520 00001FD7 61726520 00001FDB 74776F20 00001FDF 76657273 00001FE3 696F6E73 00001FE7 206F6E20 00001FEB 74686520 00001FEF 73686172 00001FF3 65776172 00001FF7 65206469 00001FFB 736B3A 699:00001FFE 022020 " " 700:00002001 30202020 " PCBASIC MPW is a 'tool' which runs under MPW." 00002005 50434241 00002009 53494320 0000200D 4D505720 00002011 69732061 00002015 2027746F 00002019 6F6C2720 0000201D 77686963 00002021 68207275 00002025 6E732075 00002029 6E646572 0000202D 204D5057 00002031 2E 701:00002032 28202020 " PCBASIC STA is a standalone compiler." 00002036 50434241 0000203A 53494320 0000203E 53544120 00002042 69732061 00002046 20737461 0000204A 6E64616C 0000204E 6F6E6520 00002052 636F6D70 00002056 696C6572 0000205A 2E 702:0000205B 022020 " " 703:0000205E 37205468 " This program demonstrates a few of PCBASIC's features." 00002062 69732070 00002066 726F6772 0000206A 616D2064 0000206E 656D6F6E 00002072 73747261 00002076 74657320 0000207A 61206665 0000207E 77206F66 00002082 20504342 00002086 41534943 0000208A 27732066 0000208E 65617475 00002092 7265732E 704:00002096 022020 " " McASM V6.0 Filename: &8073PCBASICDemoR Page no. 48 705:00002099 28202020 " To get your copy of PCBASIC contact " 0000209D 20546F20 000020A1 67657420 000020A5 796F7572 000020A9 20636F70 000020AD 79206F66 000020B1 20504342 000020B5 41534943 000020B9 20636F6E 000020BD 74616374 000020C1 20 706:000020C2 0120 " " 707:000020C4 1D202020 " Harland Harrison " 000020C8 20202020 000020CC 20202048 000020D0 61726C61 000020D4 6E642048 000020D8 61727269 000020DC 736F6E20 000020E0 2020 708:000020E2 22202020 " Pterodactyl Software " 000020E6 20202020 000020EA 20202050 000020EE 7465726F 000020F2 64616374 000020F6 796C2053 000020FA 6F667477 000020FE 61726520 00002102 202020 709:00002105 22202020 " 200 Davey Glen Rd #416 " 00002109 20202020 0000210D 20202032 00002111 30302044 00002115 61766579 00002119 20476C65 0000211D 6E205264 00002121 20233431 00002125 362020 710:00002128 22202020 " Belmont CA 94002 " 0000212C 20202020 00002130 20202042 00002134 656C6D6F 00002138 6E742043 0000213C 41202039 00002140 34303032 00002144 20202020 00002148 202020 711:0000214B 22202020 " (415) 591-5270 " 0000214F 20202020 00002153 20202020 00002157 28343135 0000215B 29203539 0000215F 312D3532 McASM V6.0 Filename: &8073PCBASICDemoR Page no. 49 00002163 37302020 00002167 20202020 0000216B 202020 712:0000216E 03454E44 "END" 713: 714: ; Runtime Configuration 715: 716:00002172 [[ CFIG,301 717: ; .I 718: ; SCREEN buffer & Update method 719: ; 2 = Text buffer with attributes 720: ; 6 = Text buffer without attributes 721: ; 10 = Text buffer exists but don't use for automatic update 722: ; 14 = Text buffer without attributes but don't update 723:00002172 0002 DC.W 2 724: ; String Space growth rate 725:00002174 1000 DC.W 4096 726: ; File Buffer Space 727:00002176 1000 DC.W 4096 728: ; Document Width 729:00002178 0280 DC.W 640 730: ; Document Height 731:0000217A 0190 DC.W 400 732: ; Border Width 733:0000217C 0028 DC.W 40 734: ; Border Height 735:0000217E 001E DC.W 30 736: ; Horiz Point Scale * 16 737:00002180 0010 DC.W 16 738: ; Vert Point Scale * 16 739:00002182 0010 DC.W 16 740: ; Aspect *16 741:00002184 0010 DC.W 16 742: ; Default font 743:00002186 0000 DC.W 0 744: ; Default font size 745:00002188 000C DC.W 12 746: ; Character cell Height 747:0000218A 000C DC.W 12 748: ; Character cell Width 749:0000218C FFFF DC.W -1 750:0000218E ]] 751: 752: 753: ; File reference for program 754: 755:0000218E $$ FREF,128 FREF resc, ID = 128 756:0000218E 4150504C APPL filetype 757:00002192 0000 0 local ID for icon list 758:00002194 00 | no filename follows the application 759: 760: ; File reference for document 761: McASM V6.0 Filename: &8073PCBASICDemoR Page no. 50 762:00002195 $$ FREF,129 FREF resc, ID = 129 763:00002195 54455854 TEXT filetype 764:00002199 0001 1 local ID for icon list 765:0000219B 00 | no filename follows the application 766: 767: ; Bundle 768: 769:0000219C $$ BNDL,128 bundle resc, ID = 128 770:0000219C 44454D4F DEMO the application's signature again 771:000021A0 0000 0 ID is again 0 by convention 772:000021A2 0001 2 two resc types in the BNDL list: 773:000021A4 49434E23 ICN#,2 map one icon list: 000021A8 0001 774:000021AA 00000080 0,128 local ID 0 -> actual ID 128 775:000021AE 00010081 1,129 776:000021B2 46524546 FREF,2 map one FREF list: 000021B6 0001 777:000021B8 00000080 0,128 local ID 0 -> actual ID 128 778:000021BC 00010081 1,129 779: 780: 781: Assembly completed for file &8073PCBASICDemoR Code size = 0, Resource size = 8640, A5 size = 0, JTBL size = 0 Number of errors = 0, number of warnings = 0